home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Commodore Disk User Volume 4 #4
/
Commodore_Disk_User_Vol.4_4_1991_-.d64
/
techno tip
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
297b
|
7 lines
0 rem ** cdu techno info tip feb.1991
1 open4,4:forn=0to63:forx=0to3:d=n+64*x:d$=right$(" "+str$(d),3)+" %":a$=""
2 b=d:fori=0to7:t=b-int(b/2)*2:a$=chr$(49+1*(t=0))+a$:b=int(b/2):next
3 d$=d$+a$+" $":a$=""
4 ifdthena=int(d/16):a$=mid$("0123456789abcdef",1+d-a*16,1)+a$:d=a:goto4
5 d$=d$+right$("00"+a$,2)+" ":print#4,d$;:next:print#4:next:close4